/* scheme/make_sob_fraction.asm
 * Takes a fraction, and place the corresponding Scheme object in R0
 */

 MAKE_SOB_FRACTION:
  PUSH(FP);
  MOV(FP, SP);
  
  PUSH(IMM(3));
  CALL(MALLOC);
  DROP(1);
  MOV(IND(R0), T_FRACTION);
  MOV(INDD(R0, 1), FPARG(0));		// R0[1] = 1 param - numerator
  MOV(INDD(R0, 2), FPARG(1));		// R0[2] = 2 param - denominator
  
  POP(FP);
  RETURN;
